home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 September / 64er_Magazin_96-09_1996_Markt__Technik_de_Side_A.d64 / mod o3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  835b  |  28 lines
  1. 100 print"[147] moment bitte !"
  2. 110 rem file o3 laden:
  3. 120 sys(57812)"o3",8,1:poke 780,0:sys 65493
  4. 130 rem file o3 modifizieren:
  5. 140 ad=51552:for x=0 to 3:read w:poke ad+x,w:next
  6. 150 ad=51042:for x=0 to 103:read w:poke ad+x,w:next
  7. 160 rem altes file o3 loeschen:
  8. 170 open 1,8,15,"s:o3":close 1
  9. 180 rem modifiziertes file o3 speichern:
  10. 190 sys(57812)"o3",8:poke 193,0:poke 194,195
  11. 200 poke 174,177:poke 175,207:sys 62954
  12. 210 :
  13. 220 data 47,196,218,83
  14. 230 :
  15. 240 data 169,8,160,0,32,167,9,170
  16. 250 data 160,224,132,159,32,213,255,162
  17. 260 data 2,189,60,51,221,199,199,240
  18. 270 data 1,96,202,16,244,32,183,255
  19. 280 data 201,64,208,245,169,27,141,17
  20. 290 data 208,32,16,35,176,46,32,220
  21. 300 data 54,170,32,201,255,176,37,160
  22. 310 data 0,132,158,120,162,52,134,1
  23. 320 data 177,158,162,55,134,1,88,32
  24. 330 data 210,255,230,158,208,2,230,159
  25. 340 data 165,159,197,175,208,229,165,158
  26. 350 data 197,174,208,223,104,104,32,233
  27. 360 data 199,76,185,52,234,68,65,47
  28.